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:* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
: DIGITAL EF 2UIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 
. ALL RIGHTS RESERVED. 


FTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 

ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ON OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
R PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HERESY 
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D SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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SOFTWARE ON EQUIPMENT WHICH I 


LITY FOR THE USE OR RELIABILITY OF iTS 
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++ 
; FACILITY: 


Linked with VMB.EXE - part of t 
bootstrap module for VAX 11/750 


ENVIRONMENT: 


Runs at IPL 31, kernel mode, memory management is OFF, IS=1 
(running on interrupt stack), and code must be PIC. 


he 
hardware. 


FUNCTIONAL DESCRIPTION: 


This routine is 11/750 specific and 

determines how many memory controllers are on the system, 
where they are, how much memory they control, which pages 
of that Syatry are present (and good). Then the routines 
set bits in the PFN bitmap to represent each present (and 
good) page of memory. 


As a side effect, the routines store the type of adapter located 
at each bus slot in the RPB. 


; INPUTS: 


; - address of Ist oe configuration code field 


R5 
R?7 - address of the SC 
R11 - address of the RPB 
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IMPLICIT INPUTS: 
The positions on the 11/750 sygrem bus are § Lled slots, and are 
identified by slot numbers 16-31. Slots 16-25 are called fixed 
slots. If an adapter is present in a fixed slot, the adapter 
must be of a predefined type. For example, 

slot = MASSBUS adapter 0 = 18 
slot 24 = UNIBUS adapter 0 = “XF30 


Adapters at fixed slots do not have configuration registers. 
This routine determines their presence by reading the first 
longword of the slot and not having the read result in a 
non-existent memory machine check. The data resulting from the 
read will be garbage. 


10 fixed system bus slots are currently defined for the 11/750: 


slot 16 = memory controller 0 = “XxF 008 
000 
n 


4 memory controllers, starting at “xf 20000 
4 MASSBUS adapters, starting at “xf 28000 
2 UNIBUS adapters, starting at “xF30000 


The other 6 system bus slots are Steet tng slots. If an adapter 
is present, that adapter must have a configuration register as 
the first [ocation in the slot's address space. The register 
must contain the adapter type in the low byte. 


The 11/750 currently supports onty 1 memory controller, located 
at “xXF20000. The 11/750 does not have interleaved memory. This 

og hee tests all controller slots as though memory could exist 
a em. 


Memory controller registers also contain the starting page 
number / 128. This routine determines where the end of memory 
on a memory controller is by analyzing the memory present map 
in the third memory controller register. 

OUTPUTS: 


R7, R8, R11, and SP are preserved 
ALC others including AP and FP) are altered 


IMPLICIT OUTPUTS: 
The PFN bitmap is modified to describe all of physical memory. 
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RPBSL_PFNCNT stores the number of pages of physical memory. 
ALL single parity errors in memory are cleared. 


RPBS$B_CONFREG describes each NEXUS on the system bus with an 
adapter type code. 
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4-SEP- BOOTS. SRCJBTMEM750.MAR; 1 
C. A. Samuelson, creation date 24-April-1981 

REVISION HISTORY: 


v03-002 TCM0003 Tr ud C. Matthews 27-Apr-1983 
Change sense of CRDTEST flag from an enable fo an inhibit, i.e. 
remove pages with CRD errors by default. 


v03-001 TCMO0002 Bs Matthews 26-Jan-1983 
Add support for RPBS CROTEST flag, which specifies that 
pages with CRD errors be removed. 


v03-001 KDM0078 Kathleen D. Morse 15-Mar-1982 
Clear all MA780-specific boot flags. 
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-SBTTL Declarations 
«DEFAULT DISPLACEMENT, WORD 


Macros to describe VMS data structures 


; Macros 


.MACRO ERROR,STR 
BS ERROUT 


R 
ERROR 
~-PSECT YBTMEM,LONG 
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sys sen Gune {ile header definitions 
11/750 definitions 
Nexus device types 
Sng pe ed registers 
start. rameter block 
ns IBUS adapter 


Outputs an error string to the 
console terminal. 


Po ee cae ee Th aaba poste, 


3 eet address of appropriate fixed slot assignment taable for each 
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BIMEMN7SO = Configure and Test 11/750 Memor 15-SEP-1984 23:42:46 AX/VMS Macro V04- Pa 
04 CHECRMER TSO. identity 147950" monary 2reEe=18bs 83:68:08 Febave sheiagmtntsooman:1 2% 2, ! 
135 -SBTTL CHECKMEM_750, Identify 11/750 memory 
158 ay 
19) ; CHECKMEM_750, Locate and test memory for 11/750 
188 3-- 
is 
8 196 3; The table that fol Lows identifies the adapter type codes of adapters 
00 167 ; located in fixed 750 SBI slots. The last 6 slots contain zeroes to 
09 185 : indicate floating slots. 
00 170° 
00 171 ADAP_TYPE_750: ; Adapter type table for 11/750 
10 0000 176 -BYTE NDTS_MEMIONI : Memory controller 0. 
40 0001 17 -BYTE NDTS_MPMO : Multiport memory 0. 
41 Bn6 174 -BYTE NDTS_MPM1 3 Multiport memory 1. 
$6 B28 175 -BYTE NDTS_MPM2 3 mye sopert memory 2. 
004 176 BYTE NOTS_ 3; MASSBUS adapter. 
0 0005 17 BYTE NDTS_ 3 MASSBUS adapter. 
0 BO08 178 BYTE NDTS_MB 3; MASSBUS adapter. 
0 000 179 -BYTE NDT$_MB 3 MASSBUS adapter. 
8 4 180 BYTE NDT$_UB0 ; UNIBUS adapter 0 
a 0 181 -BYTE NOT$_UB1 3; UNIBUS adapter 1. 
0 QOOA 1 § -BYTE 0 : Floating slot. 
00 0008 1 -BYTE 8 : Floating slot. 
00 000 184 -BYTE : Floating slot.. 
00 0 185 -BYTE 0 3 Floating slot. 
00 0 186 -BYTE 0 i Floating slot. 
00 0 187 -BYTE 0 : Floating slot. 
0 133 
8 189 
190 
0 191 
13 
19 
194 
198 
199 
198 
199 


FF FOOCOOCOCOOOMMInN 


1 HECKMEM_750:: 5 Entry tor 11/750. 
52 ED AF 9 ' MOVAB ADAP_TYPE_750,R2 3 cet 1/750 fixed slot assignment 
3; table 
01 3 
6 1 3; Start Resting slot positions to find adapters. First save the stack 
1? ? 3 position so it can be restored after a machine check. 
14 : 
Bie : INIT SEARCH: : Start searching for adapters 
5C 10 9A 14 4 MOVZBL #10750S$AL_NNEX,AP ; Set up NEXUS Loop counter. 
50 SE 00 if é MOVL SP,FP 3; Save current top of stack. 
1A $ 
1A 8 3; Set up the physteat address of the Ist slot on the system bus and 
BIA 3 3; the address of the adapter type table. 
1A 211 
54 O0F20000 9F 9€ oi i MOVAB @#10750SAL_IOBASE ,R4 ; Get address of Ist slot. 


SS ——e . = 


Slot is fixed assignment 
Save fixed type 


46 6g FIXED_SLOT: 
FFAS 53 90 0046 26 MOVB = R3,=1 (RS) 


69 
69 CHECK TYPE: 


Check adapter type for memory 


onfigure and vost Plt meuerd 15-SEP-1984 23:42:4 AX/VMS Macro V04- Pa 
750, enti fy memory “SEP- 705: e «MAR; 
EeKMER S800 "td 1179s0° mond 27$Eb=1986 $3:08:08 EBdove sncioimemiso man;1 29° <8, 
1 14; 
8 ! HE 3 we this memory locate and test loop, the following registers are 
. u : 
1 7; 
1 18 : RO - ee —— of the slot's configuration register; 
1 19 ; re reg | controtior rogreters 
1 0; R1 - gre arate n within aenory presen 
1 1 3 Re - eg of the next b te 7 nthe 7 Q=speci fic adapter 
1 § $ type table; address o TeST_0 0 rout 
1 3 R3 - default adapter type for Ne current slot; 
1 4; the number of pages in this controller 
! $3 R& - orereee 1 the configuration register at the current 
; slot pos 
021 ; ; RS - odarese of of next oz** in RPB adapter type table 
021 3 R7 - address qt 8 
021 ; RO - bit setting in memory present map 
021 0; starting page number in this cantret ler 
021 13 R10 - address of the memory description list. in RPB (pagcnt & pfn) 
8p : gi 3 R11 - address of the RPB 
0021 4 : Initialize the RPB slot field to a zero and obtain the default adapter 
83 1 5 ; type for this ree Then set up a machine check fault handler to gain 
021 § 3 eontrol if the Loop addresses a non-existent configuration register 
+ : i : (an empty slot). Then read the slot's configuration register. 
3: Initialize memory descripter List pointer) for search loop 
3 : i; Initialize R10 (RPB d i li i df hl 
SA. O00BC CB 9E 0021 41 MOVAB RPBSL age gt R10 Set porntee to genery description List 
30 AB 00005800 BF CA 0026 4g BICL #<RP RPBSM_MPM ! RPBSM =USENPm RPBSM_F INDMEM> 
: ; $7 RPBSL *BOOTRS(RI1) Clear alT MA780-specific boot flags 
O2E 45 
O2E $6 TRY_NEXUS_750: 3; Memory locate and Mp Loop. 
83 94 00 4 cCRB (R5)+ ; Assume nothing on slot. 
53 2 9A 00 rt MOVZBL (R2)+,R3 ; Get default adapter type. 
04 A7 OOBS'CF 9E 00 4 MOVAB DO_NEXT_750+1,4(R7) 3; Set up fault handler (+1 for 
0039 50 : handler execution on the 
039 51 ; interrupt stack). 
50 64 00 ; i 26 MOVL (R4) RO ; Read CR at current slot. 
03C 54; 
a3 5 ; Execution continues here if the cont igurcatton register is present. 
03¢ § 3 ,o0e the adapter type into the RPB field. Then, if the adapter type 
C 3 is a memory controller, proceed to i memory. Otherwise, move to 
C 8 3 the next SBI slot. 
E $20 
53 DS C 61 TSTL R3 :; Is this a Heating slot? 
98 1 3 $¢ BNEQ FIXED_SLOT : Branch if n 
FF AS 4 6 MOVB - ; Save t type cond from config register 
04 11 0044 64 BRB CHECK_TYPE : Check if memory controller 
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CMPB =1(R5) HyRIS FEM ens 3 Memory controller? 
BNEQ DO_NEXf_7 ; No, advance to next slot. 


; Memory controller found: 
; Find out whether the memory addresses are within legal bounds by 

; computing the number of pages on the controller and the starting page. 
; number. Each controller is assumed to contain up to 8 arra 

; boards. Both 16Kb and 64Kb boards can be suppor sed on the same 

; controller. ate tng is done by examining bits <15:0> 

; pairs. Each pair is 


in CSR2 in 
coded as follows: 


00 --> no board, 0 myte 
11 ==> 16Kb chips, 1/4 Mbyte 
other --> 64Kb chips, IMbyte 


MOVL 8(R4),RO 


: Get starting address register. 
MOVL #14,R1 


Start with zero 128K chunks. 
Start with top array slot in map. 


o 
Po) 
cr 
Sete 


EXTZV = R1,#2,R0,R9 


; Get next array size 
BEQL STEP ARRAY 


; Branch if 0 (no board present) 


ADDL #2,R 3; Add at least 2 128 Kb chunks 
CMPL R9,# 3; Got 1/4 Mbyte of memory here? 
BEQL § STEP_ARRAY : Branch if so 

ADDL #6,R3 : No, add 6 more 128Kb chunks 


for iMbyte of memory here 


; Decrease bit # in sizing register 
by 2 and try next ger eye if any 
; Convert number of 128K byte 


R1 3 
SOBGEQ R1,TRY_NXT_ARRAY 3 
ASHL 3 
3 chunks to number of pages. 


#8,R3,R3 


EXTZV #17,#7,RO,R9 
ASHL = #7, R9, RO 


MOVL R3,(RIO)+ 
ASSUME DAPSV_TR EQ 24 


; Starting page number/ 
: Rultiely y 128 = page number. 


; Save # of pages in this memory 


ASSUME DM EQ 8 

MOVB #107 tty NNEX,-1(R10) ; Compute the TR number for this 
SUBB AP,-1(R10) z memory and store in descriptor 
MOVL R9,(R10)+ 3; Save starting PFN for this memory 


Before starting memory test, establish a page skipping handler for 
3; machine checks, and turn off the cache so that writes followed by 
3: reads to menory don't write to memory and then read from the cache. 
Also, enable CRD 


error reporting if requested by the RPB BOOTRS flag. 


BBS #RPBSV_CROTEST, - 
RPBSL BOOTR (R11), 108 set. 
#*xX10000000,4(R4) Enable reporting correctable errors. 

for stack). 

Turn off memor 


errup 
H cache. 
; Save address of fixed nexus table. 


MOVL ° : 
10$: MOVAB PAGE_MCHECK_750+1,4(R7) ; Set pa 2 skipping handler (+1 
: n 


MTPR = #1, #PRS_CADR 
PUSHL R2 


Branch around CRD enable if inhibit 


SE 3p 

26 JFFFFFFFF 8F 
54 2000 ge 

09 5C 


04 A7 0001'CF 
8A 
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MOVAB TEST QUAD _750,R2 3; Page test routine address 

BSBW = BOOSTEST_AEM ; Test the specified range of PFN's 
<R2> ; Retrieve fixed nexus table address. 

BRB DO_NEXT_750 ; Do the next controller if any 


«ALIGN LONG 3; Longword-aligned handler. 
Fault handler for non-existent configuration register, or unreadable 


registers. or a non-memory controller slot device. Restore stack 
pointer, clear all errors, and try for another slot if any remain. 


DO_NEXT_750: 
MOVL 
MTPR #1, #PRS_MCESR 
MOVAB 10750$AL~PERNEX(R4) .R4 
SOBGTR AP,NEXT_REXUS_750 


: Skip to next slot. 
3; Restore stack pointer. 
; Clear any faults. 

3; Move to next slot. 

3; If still a slot, loop. 


: Reestablish the normal machine check fault handler. 


MOVAL UNEXP_MCHK+1,4(R7) 3; Reset SCB vector. 
CLRL (R10)# 3 Indicate end of RPB memory descr List 
RSB ; Return to main routine. 


: eaere label and branch here to loop back through the slot testing 
3; code. 


NEXT_NEXUS 750: ; Try the next slot. 
oe BRO TRY_NEXUS_750 : Branch to top of Loop. 
Functional Description: 
Test a page of 780 memory, 
Calling Sequence: 
JSB TEST_QUAD_750 
Inputs: 
RO = starting address to test 
Ri = Quad word iteration count (64) 
R11= Address of RPB 
Outputs: 


Returns via RSB if the entire page is OK 
Error exit via Machine Check code to BOOSPAGE _MCHECK 
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D 5 TEST_QUAD_750: ; Test 1 quadword at a time. 
0 4 b3 § cCra (RO) i Clear a quedvord. 
80 D D4 CMPL (RO)+, (RO)+ ; Read both longwords, and 
4 3 3 advance to next quadword. 
Dd? 0; 
Op? 91 ; If. no gross errors occur in the clear to the quadword or in the 
007 35 3; subsequent read instruction, then execution continues below. Otherwise 
+4 37 3 execution goes to the fault handler. 
D7 95 
F851 «FS D7 38 SOBGTR R1,TEST_QUAD 750 3; Continue clearing unless done. 
10 €1 OODA BBC #RPBSV CROTEST - ; Branch if CRD test is requested. 
01 30 AB DC 0-398 RPBSL_BOOTRS(R11),10$ 
05 DF 99 5$: 
See 8 230 3 
OE 401 ; Check if a CRD error occurred on this page. 
QoeD 208 fos 
7E  QOF20000 9F 00 3 404 MOVL 02397 205M, OBASE,-(SP) ; Get memory CSR 0. 
OOF20000 9F 6E€ 00 ODE 405 MOVL (SP) ,a#107S50$AL_IOBASE ; Clear errors, just in case. 
8E 20000000 8F oD OEE 40 BITL  #*x26000000, (SPy+ ; Check for CRO error. 
es 1 F 40 BEQL : Branch if no CRD error occurred. 
OA 11 th 4 +38 BRB ERR_EXIT_750 ; Else take error path. 
OOF9 410 ALIGN LONG ; ALL handlers longword-aligned. 
OOFC 411 
OOF C cig H 
QOFC 413 ; Handler that gains control when a page has gross memory errors. Just 
pore ai3 ; clear the error, recover the stack top, and advance to the next page. 
OOFC 416 
Bere 417 PAGE_MCHECK_750: ; Handle machine check. 
26 «6 FF FFFFFF 8F 0 =6DA «(OOF 418 TPR #-1,#PRS_MCESR ; Clear error indicator. 
10 419 ERR_EXIT 750: 
FEFA’ 31 3193 $s? ~ BOOSPAGE _MCHECK : Exit to common bad page code 
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BTMEM7SO 60 
Symbol table 705: BOOTS.SRCJBTMEM750.MAR; 1 


ADAP_TYPE 750 00000000 R 


BOOSPA ACHECK Ree Re 
or je ae x 
CHECKMEM. 750 18 RG 
CHECK_TYPE AR 
MPSS_TR = et 
dO NER? r 4 R 
aie : 35 
F 1XED_ SLOT 0 rh R 
Hye EARCH 14 R 
10 2 a = OOF % 
107 _NNEX = 0000001 
10750$AL_PERNEX = 4 $° 
NDTS_MB = 00 
NDTS_MEMI6NI = 38 3 
NDTS_MPMO = 0000004 
NDTS_MPM1 = 4454498 
TS_MPM2 = 4 4 04 
NDT$_UBO = 00000 § 
NDT$_UB1 = 00000029 
NEXT” NEXUS 750 OQOOOOOCF R 8 
PAGE-MCHECR_750 44 48 R 0 
_CADR = 000000 
PRS_MCESR = 00000026 
R -BOOTRS = 00000030 
RPBSL_MEMDSC = it ott 
PBSM_F INDMEM = 0000400 
MPA = BO hop 
|_USEMPM = 00001000 
RPBSV_CROTEST = 00000010 
ARRAY 4 44 R 02 
TEST QUAD_750 000000D2 R 02 
TRY_REXUS- 750 444 443 R 02 
Y"NXT_ARRAY 00000059 R 02 
_MCHK eeeeeeee KX 02 
$omoe eso wae arama mo + 
; Psect synopsis ! 


PSECT name Allocation PSECT No. Attributes 


- ABS . 00 44 ( 0 ¢ 9} NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 0000 1¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE R&D WRT NOVEC BYTE 
YBTMEM 000106 2¢ 2.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
$oewoowowweeeo ewe oon nen nat 
} ; Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 


Initialization 31 :00:00.0 0:00:00.55 
pennene processing i in ¢e Hn :02. 3 
ss :00:03. :00:09. 

Symbol table sort 0 :00:00.37 0:00:00. 
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vv 
ee 
—— 
oo 
SF 
nmro 
iw 
ox 


Pass f 86 :00:01.15 :00:02.57 
Symbol table output :00:00.04 :00:00.04 
Psect synopsis output :00:00. 5 :00:00. ‘ 
Cross-reference output :00:00. :00:00. 

Assembler run totals 42 :00:06.21 15.91 


The working set Limit was 1350 pages. 
20780 bytes (41 pages) of virtual memory were used to buffer the intermediate fe. 
There were 20 pages of symbol table space allocated to hold 317 non-local ng local symbols. 
421 source lines were read in Pass 1, producing 13 object racords in Pass 2. 
pages of virtual memory were used to define 14 macros. 


peewwaa see eco mcm sen ene amas eo 


! Macro Library statistics ! 


Se ren s 


Macro Library name Macros defined 


-8255SDUA28: PORTS Ces 7000TS .AL.8; 0 
_9255$0UA28: (SYS.OBJILIB.MLB; 1 4 
$255$DUA28: CSYSLIBISTARLET.MLB;2 6 
TOTALS (all Libraries) 10 


386 GETS were required to define 10 macros. 
There were no errors, warnings or information messages. 
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